home *** CD-ROM | disk | FTP | other *** search
/ The Original Shareware 1.1 / The Original Shareware (WeMake CDs)(Volume 1.1)(CDs, Inc)(1993).iso / 6 / clmfeb85.zip / FORTRN.2 < prev    next >
Text File  |  1988-07-25  |  640b  |  36 lines
  1.  
  2.                             Listing 2
  3.                       C Instead of FORTRAN?
  4.  
  5.  
  6.  
  7.     double f(x)
  8.     double x;
  9.     {
  10.         return(x - 1.0);        /* f(x) = x - 1.0 */
  11.     }
  12.  
  13.     double f(x)
  14.     double x;
  15.     {
  16.         double sin();            /* sin() function */
  17.         return(sin(2.0*x));        /* f(x) = sin(2x) */
  18.     }
  19.  
  20.     double f(x)
  21.     double x;
  22.     {
  23.         double temp = 0.0;
  24.         double power = 1.0;
  25.         int i;
  26.  
  27.         for(Θ ╜ 1;Θ ╝ 6;i++⌐    /¬ Θ loop≤ froφ ▒ t∩ ╡ inclusivσ */
  28.         {
  29.             temp  = temp + power/((double)i));
  30.             power = power * x;
  31.         }
  32.  
  33.         return(temp);    /* f(x) = polynomial */
  34.     }
  35.  
  36.